home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Amiga-E / E_v3.2a_extras / Tools / EE / rexx / EE.rx < prev    next >
Text File  |  1995-04-30  |  1KB  |  73 lines
  1. /* EE Rx Test Suite */
  2.  
  3. ADDRESS 'EE.1'
  4.  
  5. OPTIONS RESULTS
  6.  
  7. 'lockwindow'
  8.  
  9. /*---------------*
  10. 'opennew EE:src/rx/frank'
  11. 'newwindow'
  12.  *---------------*/
  13.  
  14. /*---------------*
  15. 'beginningofline'
  16.  *---------------*/
  17.  
  18. /*---------------*
  19. 'setcmd5 DIROPTA'
  20.  *---------------*/
  21.  
  22. /*---------------*
  23. 'backup'
  24.  *---------------*/
  25.  
  26. /*---------------*
  27. 'putchar a'
  28. 'putchar b'
  29. 'putchar c'
  30. 'backspace'
  31.  *---------------*/
  32.  
  33. /*---------------*
  34. 'puts Hoohah!'
  35. 'putl PutLine()'
  36.  *---------------*/
  37.  
  38. /*------------*
  39. 'size 400 150'
  40. 'move 100 50'
  41. 'zipw'
  42.  *------------*/
  43.  
  44. /*----------------------------*
  45. DO i=1 FOR 10;
  46.   'getc'; SAY 'getc('RESULT')'
  47.   'cursorright'
  48. END;
  49. 'gets 10'; SAY 'gets 10('RESULT')'
  50. 'getw'; SAY 'getw('RESULT')'
  51.  *----------------------------*/
  52.  
  53. /*--------------------------------------------------------*
  54. '?Column'; SAY 'Column='RESULT
  55. '?DefaultPublicScreen'; SAY 'DefaultPublicScreen='RESULT
  56. '?FindCase'; SAY 'FindCase='RESULT
  57. '?NoFoldWhenLoading'; SAY 'NoFoldWhenLoading='RESULT
  58. '?IndentWidth'; SAY 'IndentWidth='RESULT
  59. '?InsertMode'; SAY 'InsertMode='RESULT
  60. '?Line'; SAY 'Line='RESULT
  61. '?ShanghaiPublicScreen'; SAY 'ShanghaiPublicScreen='RESULT
  62. '?TabWidth'; SAY 'TabWidth='RESULT
  63. '?FoldExtraLines'; SAY 'FoldExtraLines='RESULT
  64.  *--------------------------------------------------------*/
  65.  
  66. /*-- TEST LATER ---------------------*
  67. 'beginmacro'
  68. 'endmacro'
  69. 'executemacro'
  70.  *-----------------------------------*/
  71.  
  72. 'unlockwindow'
  73.